Adventures with Oslo: Tools & Gadgets/Adventures with Oslo - Tools and Gadgets.ISO/mac/Ad/Mod04/forceps/00045.ls

Text File | 1994-09-23 | 557 b | 22 lines

on mouseDown
  repeat while the stillDown
    if the castNum of sprite 6 < the number of cast "last wheel" then
      set the castNum of sprite 6 to the castNum of sprite 6 + 1
    else
      set the castNum of sprite 6 to the number of cast "first wheel"
    end if
    updateStage()
  end repeat
end

on mouseUp
  global gBackPack
  if the castNum of sprite 6 = the number of cast "correct wheel" then
    set the cursor of sprite 6 to 0
    if getOne(gBackPack, #noForceps) = 0 then
      add(gBackPack, #noForceps)
    end if
    go("end")
  end if
end